home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / DATABASE / SCH110B.ZIP;1 / DMDEMO.PRG < prev    next >
Encoding:
Text File  |  1994-02-08  |  3.3 KB  |  125 lines
  1. *****
  2. * DMDEMO.prg
  3. * 
  4. * A sample SCHOONER program to demonstrate the ease and 
  5. * power of SCHOONER.
  6. *
  7. * This program is a simple but useful database system that demonstrates
  8. * most of the concepts found in SCHOONER and virtually all other power
  9. * databases.
  10. *****
  11. *****
  12. * Public variables
  13. *****
  14. public mvschooner
  15. public mvchoice
  16. public mvmainscrn
  17. public mvparm1
  18. public mvparm2
  19. public mvparm3
  20. public mvkeyval
  21. public mvtemp
  22. public mvscreen
  23. public mvtempmemo
  24. public mvstate
  25. public mvudfscrn
  26. public mvselect
  27. public mvstroke
  28. public mvudf_val
  29.  
  30. *****
  31. * Set defaults
  32. *****
  33. clearscrn()
  34. setscorebd(.f.)
  35. setcolor("w+/b,w+/bg,gr+,b,gr+/b")
  36. setcursor(.t.)
  37. setbell(.t.)
  38. setconfirm(.t.)
  39. setdeleted(.f.)
  40. *****
  41. * It is always a good idea to select your database whenever you
  42. * think it might possibly be unselected. In addition, make sure it
  43. * is open...
  44. *****
  45. if .not. is_open("dmdemo")
  46.     open("dmdemo","",.T.,"dmdemo")
  47. else
  48.     fselect("dmdemo")
  49. endif
  50. superbox(00,00,24,79,.t.,"≤",.f.)
  51. superbox(05,10,19,70,.f.,"",.t.)
  52. superbox(07,11,07,69,.f.,"",.f.)
  53. superbox(17,11,17,69,.f.,"",.f.)
  54. say(06,28,"Schooner Sample Database")
  55. say(18,23,"Highlight selection and press ENTER")
  56. do while .t.
  57.     *****
  58.     * It is always a good idea to select your database whenever you
  59.     * think it might possibly be unselected. In addition, make sure it
  60.     * is open...
  61.     *****
  62.     if .not. is_open("dmdemo")
  63.         open("dmdemo","",.T.,"dmdemo")
  64.     else
  65.         fselect("dmdemo")
  66.     endif
  67.     setcursor(.f.)
  68.     setwrap(.t.)
  69.     setmessage(23,"center")
  70.     mvchoice=0
  71.     prompt(09,11,"                     Add New Address                       ","   Add a new address to the database    ")
  72.     prompt(10,11,"              Edit/Delete  Existing Address                ","Edit an existing address in the database")
  73.     prompt(11,11,"                      Run a Report                         ","          Print a sample report         ")
  74.     prompt(12,11,"                      Print Labels                         ","           Print sample labels          ")
  75.     prompt(13,11,"                     Graphics  Demo                        ","    Display a sample graphics screen    ")
  76.     prompt(14,11,"                 Programmable Text Editor                  ","    Try the programmable text editor    ")
  77.     menuto("mvchoice")
  78.     mvmainscrn=savescreen(0,0,24,79)
  79.     if mvchoice=0
  80.         exit
  81.     endif
  82.     if mvchoice=1
  83.         do dmaddnew
  84.     endif
  85.     if mvchoice=2
  86.         do dmbrow
  87.     endif
  88.     if mvchoice=3
  89.         clearscrn()
  90.         message("Printing report. Please wait...","off")
  91.         setconsole(.f.)
  92.         reportform("dmreport","ALL","dmreport.rpt")
  93.         setconsole(.t.)
  94.     endif
  95.     if mvchoice=4
  96.         clearscrn()
  97.         message("Printing labels. Please wait...","off")
  98.         setconsole(.f.)
  99.         labelform("dmlabel","ALL","dmlabel.Lab")
  100.         setconsole(.t.)
  101.     endif
  102.     if mvchoice=5
  103.         do dmgraph
  104.     endif
  105.     if mvchoice=6
  106.         do dmmemo
  107.     endif
  108.     if mvchoice>6
  109.         message("That option is not available at this time.")
  110.     endif
  111.     mvmainscrn=restscreen(0,0,24,79,mvmainscrn)
  112. enddo
  113. message("Thank you for trying the SCHOONER sample database")
  114. setcursor(.t.)
  115. closefile()
  116. quit
  117. 
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.